DESCRIPTION_RE "PICK ONE TO REPLACE\nYou can replace one or more of the '",pers_fam_mode," favorites' that you have previously entered. You need not keep to the same types of favorites you have already, but rather you can enter them in any combination.",favSeltext,"replace."
SETTEMP favPrmptext = "REPLACE A FAVORITE\nYou are now replacing the ",ordinal," ",pers_fam_mode," favorite '",old_words,"' with a new favorite. It does not have to be the same type, but it can be.",favSeltext,"add."
GOSUB GetFavoriteData
SETBACKSTOP LastFav
IF favoritesVarRoot = ""
SETTEMP FavBuild = YY
ELSE
SETTEMP doBuild = YY
ENDIF
SETTEMP inpL2 = 4
SETTEMP beenOnce = 1
GOTO ReplaceFavorites ;loop back for another
ENDIF
SETTEMP beenOnce = 0
SETTEMP favRplc = 0
;xxxxxxxxxxxxxxxxxxxx INPUT 3 FAVORITES IN SUCCESSION xxxxxxxxxxxxxxxxxxxxx
[GetNewFavoriteItems] ; set favoritesVarRoot before coming here
IF skipExplanations = NN
;build up the prompt for personal or family favorites
SETTEMP wlc_fav = "WELCOME TO THE "
SETTEMP wlc_fav1 = "\n\nOne of the sections on your "
IF pers_fam_mode = "personal"
SETTEMP favPart1 = "PERSONAL FAVORITES"
SETTEMP favPart2 = "why you"
ELSE
SETTEMP favPart1 = "FAMILY FAVORITES"
SETTEMP favPart2 = "which members of your family"
ENDIF
SETTEMP favStrtext = wlc_fav,favPart1,wlc_fav1,pers_fam_mod," Web site is for the '",pers_fam_mode," favorites'. Here you can share some of your favorite things with others by describing them.\n\nYou can describe your favorite places to shop, dine, vacation, and so on, while telling "
SETTEMP favStrtext = favStrtext,favPart2," enjoy these 'favorites' and what you like most about them. It's great fun!"
SETTEMP favStrtext = favStrtext,"\n\nThis section will contain three items.\n\nEach of the three items can be chosen from a category, such as 'Dining', 'Shopping', and so on. The category helps the wizard select the proper page decorations and ask the right questions.\n\nYou can change these later by modifying what you wrote or by simply replacing an entire item."
BACKSTOP
PAGE
WIZPIC_RE wizPic
TYPE DESCRIPTION
DESCRIPTION_RE favStrtext
ENDIF
IF favRplc = 1
SETTEMP txt1nA = "REPLACE A FAVORITE. You are now replacing the "
SETTEMP txt1nB = " of your ",pers_fam_mode," favorites."
SETTEMP txt1n = "\n\nPick a category for the item that will replace this "
SETTEMP txt2n = "replace."
ELSE
SETTEMP txt1nA = "ADD A FAVORITE. You are now entering the "
SETTEMP txt1nB = " of three ",pers_fam_mode," favorite items."
SETTEMP txt1n = "\n\nSelect the category for this "
SETTEMP txt2n = "add."
ENDIF
SETTEMP txt2n = " favorite. The type you choose is used to determine how this item's page on the Web site is styled. It also governs what questions you will be asked to complete this item."
;xxxxxxxxxxxxxxxxxxx INPUT ROUTINE FOR ANY FAVORITE xxxxxxxxxxxxxxxxxxx
[GetFavoriteData]
GOSUB SetFavoritesIndexVariables
SETTEMP oldFavType = favType
IF favType = ""
SETTEMP favType = "Dining"
ENDIF
; get the type
PAGE
TYPE RADIOBUTTONSWITHTEXT
NAME favType
WIZPIC_RE wizPic
DESCRIPTION_RE favPrmptext
ARGUMENT "&Dining"@Dining@"\nThis is the place to let everyone know about one of your favorite places to eat.\n\nYou can describe the food, the type of cuisine, and other details to let everyone know why this is your favorite."
ARGUMENT "&Shopping"@Shopping@"\nUse this category for a favorite store, shopping mall, or catalog.\n\nTell everyone why you think this is a great place to shop and buy."
ARGUMENT "&Vacation spot"@Vacation Spot@"\nIf you have had one of those great vacation experiences, and want a way to recommend the place to everyone, pick this item.\n\nYou can tell what type of vacation place it is, and describe what you liked about it."
ARGUMENT "&Music"@Music@"\nUse this to describe one of your favorite musical pieces or collections.\n\nYou can describe the type of music, the artist, and what you like about it."
ARGUMENT "&Recipe"@Recipe@"\nUse this to describe one of your favorite recipes.\n\nYou can describe the type of dish, whose recipe it is, and the ingredients and preparation instructions."
ARGUMENT "&Books"@Books@"\nUse this item to describe a favorite book that you would like to recommend to others."
ARGUMENT "&Recommendation of any type"@Recommendation@"\nUse this item to make a recommendation about something that is not one of the other types.\n\nYou can use this item to recommend just about anything."
DESCRIPTION_RE "RECIPE Enter the name of the dish from a favorite recipe.\n\nAlso enter the name of the family member who created the recipe, or the member whose favorite recipe this is. Lastly, tell what category of dish this recipe is for: entree, salad, dessert, and so on."
ARGUMENT Name of &dish:@favName
ARGUMENT &Whose:@favSponsors
ARGUMENT &Category of dish:@favLocation
IF favName = "" || favName == rcp_name
SETTEMP favName = rcp_name
SETTEMP favLinkText = rcp_name
ELSE
SETTEMP favLinkText = rcp_name,": ",favName
ENDIF
SETTEMP junk = favName
;favName = dish name
;favLocation = type of dish
;favSpec = dish author
;favSponsors =ingredients
;favText = cooking instructions
BACKSTOP
PAGE
TYPE MULTIANDEDIT
WIZPIC wizpics\chefwiz2.gif
DESCRIPTION_RE "Enter the ingredients for this dish. Include the amount. For example, 2 cups of sliced carrots.\n\nPress the Enter key to start a new line for each ingredient."
ARGUMENT Name of dish:@junk
ARGUMENT &Ingredients:@favSpec
SETTEMP junk = favName
BACKSTOP
PAGE
TYPE MULTIANDEDIT
WIZPIC wizpics\chefwiz2.gif
DESCRIPTION_RE "Now enter the preparation instructions. A step might be 'Preheat the oven to 400 degrees' or 'Peel the carrots and cut into 1/4 inch sections'.\n\nPress the enter key to start a new line for each step in the process."
ARGUMENT Name of dish:@junk
ARGUMENT Preparation &Instructions:@favText
[GetBookData] ;xxxxxxxxx INPUT FAV BOOK xxxxxxxxxxxxx
PAGE
TYPE MULTIPLEEDITS
WIZPIC_RE wizPic
DESCRIPTION_RE "BOOKS\nEnter the full title of a favorite book. If it is a very long name (over 5-6 words), then abbreviate.\n\nAlso tell who is the author of the book."
ARGUMENT &Book title:@favName
ARGUMENT &Author:@favLocation
IF favName = "" || favName == bok_name
SETTEMP favName = bok_name
SETTEMP favLinkText = bok_name
ELSE
SETTEMP favLinkText = bok_name,": ",favName
ENDIF
SETTEMP prx_prm = "Provide the rest of the details about your favorite book "
SETTEMP prx_prm1 = ". What general category is this book? Fiction, drama, thriller, suspense, mystery, etc.\n\nWhich family member read this book? If it was read by several members, list them all. Provide a brief description of the book and its content. Be sure not to spoil the ending for anyone!"
DESCRIPTION_RE "MUSIC\nEnter the name of the musical favorite. It can be a single, a CD, an opera or musical play, or anything musical. Enter just the name for now.\n\nAlso tell who is the artist or group who performs this music."
ARGUMENT Name of &music:@favName
ARGUMENT &Artist:@favLocation
IF favName = "" || favName == mus_name
SETTEMP favName = mus_name
SETTEMP favLinkText = mus_name
ELSE
SETTEMP favLinkText = mus_name,": ",favName
ENDIF
SETTEMP prx_prm = "Provide the rest of the details for your musical favorite "
SETTEMP prx_prm1 = ". What category of music would you classify this piece in? Rock, rap, classical, etc.\n\nWho in the family recommends this music? Tell a little about this music. Tell some of the cuts, about the instrumentation, and anything you would like to share. How does it make you feel?"
BACKSTOP
PAGE
TYPE MULTIAND2EDITS
WIZPIC wizpics\wizmusfv.gif
DESCRIPTION_RE prx_prm,favName,prx_prm1
ARGUMENT &Category:@favSpec
ARGUMENT &Family members recommending this:@favSponsors
ARGUMENT &What you like best about this:@favText
[GetRecommendData] ;xxxxxxxxx INPUT GEN RECOMMENDATION xxxxxxxxx
PAGE
TYPE MULTIPLEEDITS
WIZPIC_RE wizPic
DESCRIPTION_RE "RECOMMENDATION\nEnter the name of what's being recommended. It can be an item, a service, a company, a movie, or anything. Enter just the name for now.\n\nAlso tell where can you find the thing being recommended."
ARGUMENT &Recommendation:@favName
ARGUMENT &Where to find it:@favLocation
IF favName = "" || favName == rec_name
SETTEMP favName = rec_name
SETTEMP favLinkText = rec_name
ELSE
SETTEMP favLinkText = rec_name,": ",favName
ENDIF
SETTEMP prx_prm = "Provide the rest of the details for your recommendation of "
SETTEMP prx_prm1 = ". What is the general category for this item, place, etc.?\n\nWho in the family recommends this? Describe what you like best about this. Add plenty of details here."
BACKSTOP
PAGE
TYPE MULTIAND2EDITS
WIZPIC_RE wizPic
DESCRIPTION_RE prx_prm,favName,prx_prm1
ARGUMENT &A category:@favSpec
ARGUMENT &Family members recommending this:@favSponsors
DESCRIPTION_RE "DINING FAVORITE This makes a page describing a favorite eating place.\n\nStart by filling in the name and location of a favorite place to dine. For the location, enter the town, city, or other information that would help someone to know where the place is. You will be prompted for more information on the next page."
DESCRIPTION_RE "VACATION FAVORITE\nThis favorite will describe a favorite vacation or getaway place. To begin, enter the name of the vacation spot or resort (for example, Montesori Ranch) and where this vacation spot is located (city and state, or country, island, etc.)."
ARGUMENT &Vacation spot name:@favName
ARGUMENT &Location:@favLocation
IF favName = "" || favName == vac_name
SET favName = vac_name
SET favLinkText = vac_name
ELSE
SET favLinkText = vac_name,": ",favName
ENDIF
BACKSTOP
PAGE
TYPE MULTIAND2EDITS
WIZPIC wizpics\vacatwiz.gif
DESCRIPTION_RE vac_p2
ARGUMENT &Vacation type:@favSpec
ARGUMENT &Family members who like it:@favSponsors
ARGUMENT &What you like best about this vacation spot:@favText
DESCRIPTION_RE "SHOPPING FAVORITE\nThis favorite describes one of your favorite places to shop or buy. Enter the name of the store or shopping center and its location (town or shopping center) in the spaces here."
ARGUMENT &Shopping place name:@favName
ARGUMENT &Location:@favLocation
IF favName = "" || favName = shop_nam
SET favName = shop_nam
SET favLinkText = shop_nam
ELSE
SET favLinkText = shop_nam,": ",favName
ENDIF
BACKSTOP
PAGE
TYPE MULTIAND2EDITS
WIZPIC wizpics\shpngwiz.gif
DESCRIPTION_RE shop_p2
ARGUMENT Type of &merchandise:@favSpec
ARGUMENT &Family members who like shopping there:@favSponsors
ARGUMENT &What you like best about this store:@favText
;xxxxxxxxxxxxxxxxxxxx BUILD THE PAGES xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
[BuildFamFavoritesPages] ;xxxxxxxFAMILY FAVORITE LINK PAGE xx
SETPARENTTOPIC pageContents
SETTEMP pageNameVar = "pageFavorites"
SETTEMP caption = "Favorites of the ",familyLastName," Family"
SETTEMP favoritesVarRoot = ""
SETTEMP pageName = "##Famfavorites"
SETTEMP photo = ""
COPY photo = familyPhoto
GOSUB BuildFavoritesPages
;
[BuildPersFavoritesPages] ;xxxxxPERSONAL FAVORITE LINK PAGE xx
;called only from NWMEMBER.DAT
SETPARENTTOPIC memberLinkPage
SETTEMP caption = "Favorites of ",name," ",familyLastName
SETTEMP din_p2a = "? Pick a category that best describes this eating establishment, or type your own into the box below."
SETTEMP din_p3 = "Describe the things that make "
SETTEMP din_p3a = " a 'favorite'. Fill in who in the family likes to eat there and menu items you would recommend.\n You can also throw into the section for recommended dishes any other characteristics that make "
SETTEMP din_p3b = " a favorite, such as the type of food served."
SETTEMP shop_p2 = "To define why this shopping place is a 'favorite', fill in the type of merchandise the store sells, the family members who like to shop at this store, and a short description of the store and what you like best about it."
SETTEMP vac_p2 = "To define why this vacation spot is a 'favorite', provide some additional information here. Tell what type of vacation spot this place is (seaside resort, ranch, camp, etc.), tell which family members like it, and provide a short description of what you like best about it."
SETTEMP favSeltext = "\n\nSelect one of the types of favorites listed below to "
